home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / AppleScript / Additions / GTQ Library 1.2 / Sample Scripts / TimeSort < prev    next >
Encoding:
Text File  |  1994-05-03  |  956 b   |  25 lines  |  [TEXT/ToyS]
  1. on run
  2.     set pth to (path to preferences folder)
  3.     set oldDelims to AppleScript's text item delimiters
  4.     set AppleScript's text item delimiters to ":"
  5.     set t1 to (current date in seconds)
  6.     set l to list folder pth
  7.     set l to l & l & l & l & l & l & l & l & l & l & l & l & l
  8.     set t2 to (current date in seconds)
  9.     set n to number of items in l
  10.     try
  11.         display dialog ((t2 - t1) as string) & " seconds to create the list of " & n & ¬
  12.             " elements." & return & "(" & ((t2 - t1) / n) & " seconds/element)." & return & ¬
  13.             "Sort it now?"
  14.     on error
  15.         set AppleScript's text item delimiters to oldDelims
  16.         error number -128
  17.     end try
  18.     set t1 to (current date in seconds)
  19.     sort l
  20.     set t2 to (current date in seconds)
  21.     display dialog ((t2 - t1) as string) & " seconds to sort the list of " & n & ¬
  22.         " elements." & return & "(" & ((t2 - t1) / n) & " seconds/element)." buttons {"OK"} default button 1
  23.     set AppleScript's text item delimiters to oldDelims
  24.     return
  25. end run